home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / cursor pos. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  73 lines
  1. 100 REM *******************************
  2. 110 REM *      CURSOR-STEUERUNG       *
  3. 120 REM *-----------------------------*
  4. 130 REM * NORBERT J. P E T E R   1986 *
  5. 140 REM *******************************
  6. 150 :
  7. 160 REM -------------------------------
  8. 170 REM    STEUERZEICHEN-VARIABLE
  9. 180 REM -------------------------------
  10. 190 :
  11. 200 LET CS$=CHR$(147):REM CLEAR SCREEN
  12. 210 LET HO$=CHR$(19) :REM CURSOR HOME
  13. 220 LET RE$=CHR$(18) :REM REVERS EIN
  14. 230 :
  15. 240 LET CR$=CHR$(29) :REM CURSOR RECHTS
  16. 250 LET CL$=CHR$(157):REM CURSOR LINKS
  17. 260 :
  18. 270 LET CU$=CHR$(17) :REM CURSOR UNTEN
  19. 280 LET CO$=CHR$(145):REM CURSOR OBEN
  20. 290 :
  21. 300 REM -------------------------------
  22. 310 REM  ERZEUGEN DER POSITIONS-STRINGS
  23. 320 REM -------------------------------
  24. 330 :
  25. 340 : FOR I=1 TO 4
  26. 350 :
  27. 360 :      LET CR$=CR$+CR$+CR$
  28. 370 :      LET CL$=CL$+CL$+CL$
  29. 380 :
  30. 390 :      LET CU$=CU$+CU$+CU$
  31. 400 :      LET CO$=CO$+CO$+CO$
  32. 410 :
  33. 420 : NEXT I
  34. 430 :
  35. 440 REM -------------------------------
  36. 450 :
  37. 460 : DIM L$(80),R$(80),O$(24),U$(24)
  38. 470 :
  39. 480 REM -------------------------------
  40. 490 :
  41. 500 : FOR S=1 TO 80      :REM   SPALTEN
  42. 510 :
  43. 520 :      LET L$(S)=LEFT$ (CL$,S)
  44. 530 :      LET R$(S)=LEFT$ (CR$,S)
  45. 540 :
  46. 550 : NEXT S
  47. 560 :
  48. 570 : FOR Z=1 TO 24      :REM   ZEILEN
  49. 580 :
  50. 590 :      LET O$(Z)=LEFT$ (CO$,Z)
  51. 600 :      LET U$(Z)=LEFT$ (CU$,Z)
  52. 610 :
  53. 620 : NEXT Z
  54. 630 :
  55. 640 REM -------------------------------
  56. 650 REM      CURSOR-POSITION-DEMO
  57. 660 REM -------------------------------
  58. 670 :
  59. 680 : FOR DURCHGANG=1 TO 30
  60. 690 :
  61. 700 :  PRINT CS$
  62. 710 :
  63. 720 :  ZEILE =INT(40*RND(.)):REM ZUFALL
  64. 730 :  SPALTE=INT(23*RND(.)):REM ZUFALL
  65. 740 :
  66. 750 : PRINT R$(ZEILE)+U$(SPALTE)+RE$">"
  67. 760 :
  68. 770 :    FOR ZEIT=1 TO 200:NEXT ZEIT
  69. 780 :
  70. 790 : NEXT DURCHGANG
  71. 800 :
  72. 830 REM ===============================
  73.